home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 November
/
1985-11.d64
/
digi clock
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
65 lines
10 print"[147] digi-clock"
20 print"enter sys 682 [146] to restart clock after pressing run/stop-restore.
30 [153]" change clock color by entering:
40 print" poke 40981, color number
50 [141]290
60 [133]"hour";hr
70 [139]hr[179]1[176]hr[177]12[167][153]"must be in range 1-12":[137]60
80 h$[178][196](hr):[139][195](h$)[178]2[167]h[178]0:r[178]hr:[137]100
90 h[178][197]([200](h$,2)):r[178][197]([201](h$,1))
100 hr[178](h[172]16)[170]r
110 [133]"min";mi
120 [139]mi[179]0[176]mi[177]59[167][153]"must be in range 0-59":[137]110
130 m$[178][196](mi):[139][195](m$)[178]2[167]160
140 m[178][197]([200](m$,2)):i[178][197]([201](m$,1))
150 mi[178](m[172]16)[170]i
160 [133]"sec";se
170 [139]se[179]0[176]se[177]59[167][153]"must be in range 0-59":[137]160
180 s$[178][196](se):[139][195](s$)[178]2[167]210
190 s[178][197]([200](s$,2)):e[178][197]([201](s$,1))
200 se[178](s[172]16)[170]e
210 [153]"awaitm or pwaitm";:[133]a$
220 [139]a$[179][177]"a"[175]a$[179][177]"p"[167]210
230 [139]a$[178]"p"[167]hr[178]hr[176]128
240 [139]a$[178]"p"[175]hr[178]146[167]hr[178]18
250 [139]a$[178]"a"[175]hr[178]18[167]hr[178]146
260 [153]"press any key when ready to start clock"
270 [161]g$:[139]g$[178]""[167]270
280 [151]679,hr:[151]680,mi:[151]681,se:[158]695:[153]"load":[162]
290 i[178]682
300 [135] a:[139] a[178]256 [167]320
310 [151] i,a:i[178]i[170]1:[137]300
320 i[178]40960
330 [135] a:[139] a[178]256 [167] [142]
340 [151] i,a:i[178]i[170]1:[137]330
350 [131] 120,169,210,141,20,3,169
360 [131] 2,141,21,3,88,96,32
370 [131] 170,2,173,167,2,141,11
380 [131] 220,173,168,2,141,10,220
390 [131] 173,169,2,141,9,220,169
400 [131] 0,141,8,220,96,169,54
410 [131] 133,1,32,0,160,169,55
420 [131] 133,1,76,49,234,256
430 [131] 169,32,162,12,157,0,4
440 [131] 232,224,40,208,248,169,32
450 [131] 141,0,4,141,9,4,169
460 [131] 1,162,0,157,0,216,232
470 [131] 224,12,208,248,169,58,141
480 [131] 3,4,141,6,4,173,11
490 [131] 220,72,41,15,24,105,48
500 [131] 141,2,4,104,72,41,112
510 [131] 74,74,74,74,24,105,48
520 [131] 201,48,208,5,169,32,76
530 [131] 74,160,169,49,141,1,4
540 [131] 104,42,176,8,169,1,141
550 [131] 10,4,76,94,160,169,16
560 [131] 141,10,4,169,13,141,11
570 [131] 4,173,10,220,72,41,15
580 [131] 24,105,48,141,5,4,104
590 [131] 41,240,74,74,74,74,24
600 [131] 105,48,141,4,4,173,9
610 [131] 220,72,41,15,24,105,48
620 [131] 141,8,4,104,41,240,74
630 [131] 74,74,74,24,105,48,141
640 [131] 7,4,173,8,220,96,0,256